/*  ------------------------------------------------------------------------  */
/*  Paper        : Does Stakeholder Outrage Determine Executive Pay?          */
/*  Program      : a02-01-figures.do                                          */
/*  Description  : Paper figures                                              */
/*  ------------------------------------------------------------------------  */

use "$temp112/outragePanel.dta", clear

graph drop _all

/*  ------------------------------------------------------------------------  */
//  CEO base salary cuts in 2020

gen salary_chg_rev = (salary_chg * -1) * 100

graph twoway (histogram salary_chg_rev if salary_chg_rev > 0 & fyear==2020 & mainsample==1, bin(50) frequency)

/*  ------------------------------------------------------------------------  */
//  Pandemic stock price impact

replace prc_delta = prc_delta * 100

graph twoway (histogram prc_delta if fyear==2020 & mainsample==1, bin(31) frequency)

/*  ------------------------------------------------------------------------  */
//  Pandemic stock price impact

use "$temp112/outragePanel.dta", clear

keep if mainsample==1 & fyear >=2016

foreach yvar in salary othcomp {
	winsor2 `yvar', cuts(.5 99.5) suffix(_w)
}

collapse (mean) salaryMean = salary_w othcompMean =othcomp_w (count) dcutCount = salary_w, by(fyear dcut_firm)

#delimit ;
graph twoway	
	(line salaryMean fyear if dcut_firm==1)
	(line salaryMean fyear if dcut_firm==0)
	(line othcompMean fyear if dcut_firm==1)
	(line othcompMean fyear if dcut_firm==0)
; #delimit cr

/*  -|----------------------------------------------------------------------  */
/*  ||  ---    Program end: a02-01-figures.do                                 */
/*  -|  ---    Attila Balogh    --------------------------------------------  */